home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / update1a / module2.bas < prev    next >
Encoding:
BASIC Source File  |  1999-07-26  |  253 b   |  18 lines
  1. Attribute VB_Name = "Module1"
  2. Public Form1 As Form1
  3.  
  4.  
  5. Sub Main()
  6.     Dim fSplash As New frmSpash
  7.     fLogin.Show vbModal
  8.     If Not fSplash.OK Then
  9.         'Login Failed so exit app
  10.         End
  11.     End If
  12.     Unload fSplash
  13.  
  14. End Sub
  15.  
  16.  
  17.  
  18.